home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / PHOGEN3.DMS / in.adf / Install Photogenics < prev    next >
Encoding:
Text File  |  1978-01-17  |  19.0 KB  |  773 lines
  1.  
  2.  
  3. ; Photogenics Installer script. © Almathera 1994-7. All rights reserved.
  4.  
  5. ; $VER: Photogenics_3.25_Installer_USA_Edition 3.025 (23.02.97)
  6.  
  7.  
  8.  
  9. (set #GOINGIN
  10.     (cat "\n\nWelcome to the Photogenics (TM) installation system\n\n\n"
  11.          "Read the file READ.ME on distribution disk 3 for more "
  12.          "information about Photogenics 3.25 that may have not made "
  13.          "it into the printed manual."
  14.          "\n\n\n Photogenics © 1994-7 Paul Nolan & Almathera Systems Ltd."
  15.          " All Rights Reserved.")
  16. )
  17.  
  18. (set #WAYS-TO-INSTALL
  19.     (cat "Photogenics is a modular program - you don't need to"
  20.          " install the entire package in order to use it. Most"
  21.          " people can simply install the generic program - if"
  22.          " you've extra graphics hardware or you'd like some more"
  23.          " loader/saver formats, you can additionally install the"
  24.          " 'Extra modules'.\n\n"
  25.          "The ColourFonts are the ones as used in the 'Special text effects"
  26.          " with Alpha channels' tutorial. They're 8-colour anti-aliased"
  27.          " fonts, and use a ramped-up greyscale palette. Be warned that"
  28.          " they're BIG (around 900K) to install, so make sure your hard"
  29.          " drive has enough free space beforehand.\n\n"
  30.          "The Tutorial graphics and examples are the images described"
  31.          " in the manual during the tutorials, plus a cluster of other"
  32.          " suitable material to feed Photogenics with. Please note that"
  33.          " these pictures are copyrighted and are supplied for test"
  34.          " purposes only - they are not for commercial use of any"
  35.          " nature, unless specifically stated by their respective"
  36.          " owners.")
  37. )
  38.  
  39. (set #DOTHEPROGRAMFIRST
  40.     (cat " You need to install the main Photogenics program"
  41.          " before you can install the optional GIOs, colourfonts or tutorial"
  42.          " images! ;->\n\n"
  43.          " Make sure the checkbox for 'Main program and standard modules'"
  44.          " is ticked when the main options menu appears on starting this"
  45.          " installer utility. <You can install everything else at the same"
  46.          " time, by selecting all checkboxes and hitting Proceed>")
  47. )
  48.  
  49. (set #MAINPROG-HELP
  50.     (cat "\nThe Photogenics package is extremely modular - effects, loaders and"
  51.          " savers, brushes and image manipulators are all separate files"
  52.          " which the main program calls as-and-when it needs to. This makes"
  53.          " efficient use of memory.\n\n"
  54.          "When installed, the main program sits at the top of its directory"
  55.          " tree under which drawers containing the various external modules"
  56.          " are positioned - these will be installed soon.")
  57. )
  58.  
  59. (set #SCRATCH-HELP
  60.     (cat "\nPhotogenics can sometimes require extra storage space for"
  61.          " temporary files created by itself, especially for exporting"
  62.          " data to other programs - these can be several megabytes in"
  63.          " size, so unless you have a LOT of RAM <ie over 10 megs of"
  64.          " FAST>, aim the assignment 'PGStemp:' at a fast hard disk"
  65.          " directory with lots of free space.\n\n"
  66.          "This directory you select on the previous page is used for"
  67.          " 'PGStemp:' and the assignment gets added to S:User-StartUP")
  68. )
  69.  
  70. (set #SUPPORT-HELP
  71.     (cat "\n\n\n\nThis section installs the generic loader, saver, brush"
  72.          " and effects modules which the Photogenics main program calls."
  73.          " These all sit in their various subdirectories, so it's just"
  74.          " a simple recursive copy with no version-check.")
  75. )
  76.  
  77. (set #GENIXFONT-HELP
  78.     (cat "\n\n\n\n\nInstalling Photogenics font into FONTS: - this is the internal"
  79.          " font used by the program.")
  80. )
  81.  
  82. (set #WHEREFONT-HELP
  83.     (cat "\nThe Photogenics 'Text' GIO loader can use Amiga ColourFonts"
  84.          " which tend to be BIG. These ones are over 900K, so you can"
  85.          " install them away from the System"
  86.          " disk <useful if you keep Colourfonts in a special drawer"
  87.          " or you're running low on System space>. Keeping them in 'FONTS:'"
  88.          " is simplest but unwieldy, putting them in another directory means"
  89.          " an extra addition to S:User-StartUP. But it's more organised.\n\n"
  90.          " Select 'FONTS:' to install to FONTS: or 'Elsewhere' to select your"
  91.          " own directory.")
  92. )
  93.  
  94. (set #FONTSTARTUP-HELP
  95.     (cat "\nBecause you've not installed the ColourFonts in the standard SYS:Fonts"
  96.          " directory <pointed at by the FONTS: assignment>, Photogenics won't be able"
  97.          " to see them for use unless FONTS: has been extended to include your selected"
  98.          " directory. The 'Assign' command under WorkBench 3.x has the ADD option which"
  99.          " will extend FONTS: to cover multiple directories - ROM routines will follow"
  100.          " the full AmigaDOS path, but DOpus and normal filerequesters can't do this.\n\n"
  101.          "Best way to extend FONTS: is add to S:User-Startup.")
  102. )
  103.  
  104. (set #USERSTARTUP-HELP
  105.     (cat "\n\nPhotogenics needs an AmigaDOS assignment so it knows where"
  106.          " to find all its program modules.\n\nThe assignment PHOTOGENICS: is best"
  107.          " made on bootup - the standard way of doing this being an extra"
  108.          " few lines in the file S:User-Startup.\n\nThis section of the"
  109.          " install procedure will add these lines for you.")
  110. )
  111.  
  112. (set #BIGBOX-HELP
  113.     (cat "\nPhotogenics supports a variety of add-on third-party graphics"
  114.          " hardware which you might appreciate - the list will expand in"
  115.          " the future, on a\n\n"
  116.          "    'when-we-can-get-hold-of-the-development-docs'\n\n"
  117.          "basis. There's also a selection of lesser-known, more-obscure"
  118.          " and way-bizarre GIO modules for a variety of hardware and"
  119.          " software formats so select whatever you'd like to install"
  120.          " from the list on the previous page, then hit 'Proceed'")
  121. )
  122.  
  123. (set #WAY-COOL-NEW-STUFF
  124.     (cat "\nIn the 2.25 update, there's various new features, tweaks, freaks"
  125.          " and updates to some of the paintmodes and GIOs - we're about to"
  126.          " delete one of the obsolete files. This process will take"
  127.          " approximately 4 of your Earth 'minutes'. Thank you.")
  128. )
  129.  
  130.  
  131. (procedure scrub
  132.     (
  133.     (if (> (exists (tackon BINARIES OLDKACK) ) 0 )
  134.         (
  135.         (delete (tackon BINARIES OLDKACK)
  136.             (prompt ("\n\nDeleting redundant program code:\n\n%s\n\n" (tackon BINARIES OLDKACK) ))
  137.             (help #WAY-COOL-NEW-STUFF)
  138.             (confirm)
  139.             )
  140.         )
  141.     )
  142.     )
  143. )
  144.  
  145. (procedure dead_beavers
  146.     (
  147.     (copyfiles
  148.         (prompt HEREITCOMES)
  149.         (help @copyfiles-help)
  150.         (source (tackon "Photogenics_2:" FINALDIR))
  151.         (dest (tackon GRAPHICS FINALDIR))
  152.         (pattern "#?.JPG")
  153.         (confirm)
  154.         )
  155.     )
  156. )
  157.  
  158. (procedure do-the-startup
  159.     (
  160.     (if
  161.         (askbool
  162.             (prompt
  163.                 (cat "\n\n\nDo you want the installer to automatically make the required changes for "
  164.                      SECTION-NAME
  165.                      " to S:User-StartUP?\n\nIf you don't, it will create a script file containing "
  166.                      " commands which you should add to your S:User-StartUP script.")
  167.                 )
  168.             (help STARTUP-HELP))
  169.         (startup SECTION-NAME
  170.             (prompt
  171.                 (cat "\n\n\nNow adding the " SECTION-NAME
  172.                      " lines to S:User-StartUP.\n\n"
  173.                  "These are:\n\n" ADD-TO-USER-STARTUP)
  174.                 )
  175.             (help STARTUP-HELP)
  176.             (command ADD-TO-USER-STARTUP))
  177.         (
  178.         (textfile
  179.             (dest (tackon OUTPUT STARTUP-FILE))
  180.             (append ADD-TO-USER-STARTUP))
  181.  
  182.         (message
  183.             "\n\n\n\nThe file:\n\n"
  184.             (tackon OUTPUT STARTUP-FILE)
  185.             "\n\nhas been generated, which you must add to"
  186.             " S:User-StartUP manually.")
  187.         )
  188.     )
  189.     )
  190. )
  191.  
  192.  
  193. (procedure hunt_the_wiener
  194.     (
  195.     (set OLDINSTALL (getassign "photogenics"))
  196.  
  197.     (if (AND (= OLDINSTALL "") (< (IN WHATTOINSTALL 0) 1 ) )
  198.         (abort #DOTHEPROGRAMFIRST)
  199.         (set RETURNCODE OLDINSTALL)
  200.     )
  201.     )
  202. )
  203.  
  204.  
  205. (procedure corebinaries
  206.     (
  207.  
  208.     (set NEWCODE (+ NEWCODE 2))
  209.  
  210.     (if (= (getassign "WORK" "v") "" )
  211.         (set NORMAL @default-dest)
  212.         (set NORMAL "WORK:")
  213.     )
  214.  
  215.     (set CHIP (database "graphics-mem") )
  216.     (set TOTAL (database "total-mem") )
  217.  
  218.     (if ( <= (- TOTAL CHIP) 0 )
  219.         (
  220.         (message
  221.             "\n\nWarning:\n\nInstalling Photogenics on a machine"
  222.             " with a hard drive but no extra FAST memory is *NOT*"
  223.             " recommended due to the extra memory overheads of the hard"
  224.             " drive.\n\n"
  225.             " Adding extra FAST RAM to your machine will improve"
  226.             " system performance by approximately 2 times, and"
  227.             " allow you to work with much larger images in"
  228.             " Photogenics."
  229.             )
  230.         )
  231.     )
  232.  
  233.     (set BINARIES
  234.         (askdir
  235.             (prompt "Where do you wish to install Photogenics?\n(A drawer named 'Photogenics' will be created in which the program will reside)")
  236.             (help #MAINPROG-HELP)
  237.             (default NORMAL)
  238.             (disk)
  239.         )
  240.     )
  241.  
  242.     (set BINARIES (tackon BINARIES "Photogenics"))
  243.     (set @default-dest BINARIES)
  244.  
  245.     (set PGX-SCRATCH
  246.         (askdir
  247.             (prompt "Where should Photogenics keep its temporary files?\n(Unless you have LARGE amounts of memory this should be in a hard disk directory)")
  248.             (help #SCRATCH-HELP)
  249.             (default (tackon @default-dest "Temporary"))
  250.             (newpath)
  251.             (disk)
  252.         )
  253.     )
  254.  
  255.     (set ADD-TO-USER-STARTUP (cat "assign photogenics: \"" BINARIES "\"\nassign PGStemp: \"" PGX-SCRATCH "\"\n"))
  256.  
  257.     (copyfiles
  258.         (prompt "Okay, here it comes...")
  259.         (help @copyfiles-help)
  260.         (source "Photogenics_3:c/Deplode")
  261.         (dest "ram:")
  262.     )        
  263.  
  264.     (askdisk
  265.         (prompt "Please insert Photogenics disk 1 in any drive")
  266.         (dest "Photogenics_1")
  267.         (help @askdisk-help)
  268.     )
  269.  
  270.                       ; Copying the main bit...
  271.  
  272.     (if ( < (exists BINARIES (noreq) ) 2)
  273.         (makedir BINARIES
  274.             (prompt "Creating Photogenics directory...")
  275.             (help @makedir-help) 
  276.             (infos)
  277.         )
  278.     )
  279.  
  280.     (if ( < (exists PGX-SCRATCH (noreq) ) 2)
  281.         (makedir PGX-SCRATCH
  282.             (prompt ("Creating the directory \n%s\n for Photogenics temporary files..." PGX-SCRATCH))
  283.             (help @makedir-help) 
  284.         )
  285.     )
  286.  
  287.     (run ("ram:Deplode Photogenics_1:Photogenics \"%s\"" (tackon BINARIES "Photogenics") )
  288.         (prompt "Installing Photogenics release 3.25 main program...")
  289.         (help #MAINPROG-HELP)
  290.         (confirm)
  291.     )
  292.  
  293.     (delete "ram:Deplode")
  294.  
  295.     (copyfiles
  296.         (prompt "Installing Photogenics icon...")
  297.         (help #MAINPROG-HELP)
  298.         (source "Photogenics_1:Photogenics.icon")
  299.         (dest BINARIES)
  300.         (newname "Photogenics.info")
  301.     )
  302.  
  303.     (tooltype
  304.         (prompt "Setting up icon position")
  305.         (help #MAINPROG-HELP)
  306.         (dest (tackon BINARIES "Photogenics.info"))
  307.         (noposition)
  308.         (setstack 25000)
  309.     )
  310.  
  311.     (if ( < (exists "envarc:Photogenics" (noreq) ) 2)
  312.         (
  313.         (makedir "envarc:Photogenics"
  314.             (prompt "Creating Photogenics directory in ENVARC:...")
  315.             (help @makedir-help) 
  316.             )
  317.  
  318.         (makedir "env:Photogenics"
  319.             (prompt "Creating Photogenics directory in ENV:...")
  320.             (help @makedir-help) 
  321.             )
  322.         )
  323.     )
  324.  
  325.  
  326.     (set OLDKACK "Data/Paintmodes/Flip-X")
  327.     (scrub)
  328.  
  329.     (set OLDKACK "Data/Paintmodes/Flip-Y")
  330.     (scrub)
  331.  
  332.     (set OLDKACK "Data/Paintmodes/AddDust")
  333.     (scrub)
  334.  
  335.     (set OLDKACK "Data/Paintmodes/NegBright")
  336.     (scrub)
  337.  
  338.     (set OLDKACK "Data/Paintmodes/LimitMax")
  339.     (scrub)
  340.  
  341.     (set OLDKACK "Data/Paintmodes/LimitMin")
  342.     (scrub)
  343.  
  344.     (set OLDKACK "Data/Paintmodes/HeavyBlur")
  345.     (scrub)
  346.  
  347.     (set OLDKACK "Data/GIO/WhiteNoise.gio")
  348.     (scrub)
  349.  
  350.     (set OLDKACK "Data/GIO/ColourNoise.gio")
  351.     (scrub)
  352.  
  353.     (set OLDKACK "Data/GIO/Ham8.gio")
  354.     (scrub)
  355.  
  356.     (copyfiles
  357.         (prompt "Installing Photogenics data files...")
  358.         (help #SUPPORT-HELP)
  359.         (source "Photogenics_1:Data/")
  360.         (dest (tackon BINARIES "Data") )
  361.         (all)
  362.         (confirm)
  363.     )
  364.  
  365.     (copyfiles
  366.         (prompt "Installing Photogenics font in FONTS:")
  367.         (help #GENIXFONT-HELP)
  368.         (source "Photogenics_1:Fonts/")
  369.         (dest "fonts:")
  370.         (pattern "Photogenics#?")
  371.         (fonts)
  372.         (confirm)
  373.     )
  374.  
  375.     (copylib
  376.         (prompt "Checking and updating ASL.library, if needed...")
  377.         (help @copylib-help)
  378.         (source "Photogenics_1:libs/asl.library")
  379.         (dest "libs:")
  380.         (confirm)
  381.     )
  382.  
  383.     (copylib
  384.         (prompt "Checking and updating SetPatch. Photogenics *requires* v40.16")
  385.         (help @copylib-help)
  386.         (source "Photogenics_1:c/SetPatch")
  387.         (dest "c:")
  388.         (confirm)
  389.     )
  390.  
  391.     (run "Photogenics_1:c/SetPatch QUIET")
  392.  
  393.     (askdisk
  394.         (prompt "Please insert Photogenics disk 3 in any drive")
  395.         (dest "Photogenics_3")
  396.         (help @askdisk-help)
  397.     )
  398.  
  399.     (copyfiles
  400.         (prompt "Installing more Photogenics data files...")
  401.         (help #SUPPORT-HELP)
  402.         (source "Photogenics_3:ExtraData/")
  403.         (dest (tackon BINARIES "Data") )
  404.         (all)
  405.         (confirm)
  406.     )
  407.  
  408.     (copyfiles
  409.         (prompt "Copying manual additions across")
  410.         (help @copyfiles-help)
  411.         (source "Photogenics_3:READ.ME")
  412.         (dest BINARIES)
  413.         (infos)
  414.     )
  415.  
  416.     (tooltype 
  417.         (dest ("%s/READ.ME" BINARIES))
  418.         (setdefaulttool "More")
  419.         (setstack 10000)
  420.         (noposition)
  421.     )
  422.  
  423.  
  424.     (set SECTION-NAME "Photogenics")
  425.     (set STARTUP-HELP #USERSTARTUP-HELP)
  426.     (set OUTPUT BINARIES)
  427.     (set STARTUP-FILE "add-to-user-startup")
  428.     (do-the-startup)
  429.  
  430.     (makeassign "photogenics" BINARIES)
  431.     (makeassign "PGStemp" PGX-SCRATCH)
  432.  
  433.     )
  434.  
  435. )
  436.  
  437. (procedure extrastuff
  438.     (
  439.     (hunt_the_wiener)
  440.     (set BINARIES RETURNCODE)
  441.     (set @default-dest BINARIES)
  442.     (makeassign "pgs_temp" BINARIES)
  443.  
  444.     (set NEWCODE (+ NEWCODE 1))
  445.  
  446.     (set BIGBOXGIO
  447.         (askoptions
  448.         (prompt "Please select which extra loaders/savers you require:")
  449.         (help #BIGBOX-HELP)
  450.             (choices
  451.                 "CyBERgraphics 3d /64 3D"
  452.                 "EGS"
  453.                 "Harlequin"
  454.                 "Impulse"
  455.                 "OpalVision"
  456.                 "Picasso II / II+"
  457.                 "Preferences Printer"
  458.                 "QRT"
  459.                 "QuadAnim"
  460.                 "Raw"
  461.                 "Retina"
  462.                 "Sculpt"
  463.                 "V-Lab"
  464.                 "Prograb 24"
  465.                 "Studio 2"
  466.                 "TIFF"
  467.                 "VideoToaster"    ; 17
  468.             )
  469.         )
  470.     )
  471.  
  472.     (askdisk
  473.         (prompt "Please insert Photogenics disk 3 in any drive")
  474.         (dest "Photogenics_3")
  475.         (help @askdisk-help)
  476.     )
  477.  
  478.                           ; loop for each one...
  479.  
  480.     (set LOOP-FLAG -1)
  481.  
  482.     (while (< LOOP-FLAG 17 )
  483.         (
  484.  
  485.         (set LOOP-FLAG (+ 1 LOOP-FLAG ))
  486.  
  487.         (if (IN BIGBOXGIO LOOP-FLAG)
  488.             (
  489.             (set FILE-TO-COPY
  490.                 (select LOOP-FLAG
  491.                     "CyBERgraphics.gio"
  492.                     "EGS.gio"
  493.                     "Harlequin.gio"
  494.                     "Impulse.gio"
  495.                     "OpalVision.gio"
  496.                     "Picasso-II.gio"
  497.                     "PrefsPrinter.gio"
  498.                     "QRT.gio"
  499.                     "QuadAnim.gio"
  500.                     "Raw.gio"
  501.                     "Retina.gio"
  502.                     "Sculpt.gio"
  503.                     "VLab.gio"
  504.                     "ProGrab24RT.gio"
  505.                     "StudioII-Print.gio"
  506.                     "TIFF.gio"
  507.                     "Toaster.lha"
  508.                 )
  509.             )
  510.  
  511.             (set FILE-TO-COPY (tackon "Photogenics_3:ExtraGIOs" FILE-TO-COPY))
  512.  
  513.             (if (= 16 LOOP-FLAG)
  514.                 (
  515.                 (working "Decompressing and installing Video Toaster plug-in...")
  516.  
  517.                 (set BURNT (run "Photogenics_3:c/lhex -qfw=pgs_temp:Data/GIO x Photogenics_3:Toaster.lha"))
  518.                 (if  ( <> BURNT 0)
  519.                     (message
  520.                         "\n\n\n\n"
  521.                         "Error decompressing the Video Toaster plug-in archive"
  522.                         " into your selected directory.\n"
  523.                         "Make sure your hard disk, has enough free space in it, "
  524.                         " and if the files to be copied already exist, the existing"
  525.                         " files aren't protected from deletion or overwriting.")
  526.                     )
  527.                 )
  528.  
  529.                 (copyfiles
  530.                     (prompt ("Copying loader %s to GIO drawer..." FILE-TO-COPY) )
  531.                     (help @copylib-help)
  532.                     (source FILE-TO-COPY)
  533.                     (dest "pgs_temp:Data/GIO")
  534.                 )
  535.  
  536.             )
  537.  
  538.             )
  539.  
  540.         )
  541.  
  542.         )
  543.     )
  544.  
  545.     )
  546. )
  547.  
  548. (procedure colourfonts
  549.     (
  550.     (hunt_the_wiener)
  551.     (set WHEREFONT RETURNCODE)
  552.  
  553.     (set FONTCHOICE
  554.         (askchoice
  555.             (prompt "Where do you wish to install the ColourFonts?")
  556.             (help #WHEREFONT-HELP)
  557.             (choices "FONTS:" "Elsewhere")
  558.         )
  559.     )
  560.  
  561.     (if (= 1 FONTCHOICE)
  562.         (
  563.  
  564.         (set WHEREFONT
  565.             (askdir
  566.                 (prompt "Okay, choose a directory.\n")
  567.                 (help @askdir-help)
  568.                 (default @default-dest)
  569.                 (newpath)
  570.                 (disk)
  571.             )
  572.         )
  573.  
  574.         (if ( < (exists WHEREFONT (noreq) ) 2)
  575.             (makedir WHEREFONT
  576.                 (prompt ("Creating the directory '%s' for the ColourFonts...") WHEREFONT)
  577.                 (help @makedir-help) 
  578.                 (confirm)
  579.             )
  580.         )
  581.  
  582.         (set ADD-TO-USER-STARTUP (cat "assign fonts: \"" WHEREFONT "\" ADD\n"))
  583.         )
  584.  
  585.         (
  586.         (set WHEREFONT "fonts:")
  587.         )
  588.     )
  589.  
  590.     (set @default-dest RETURNCODE)
  591.     (makeassign "pgs_temp" WHEREFONT)
  592.  
  593.     (askdisk
  594.         (prompt "Please insert Photogenics disk 3 in any drive")
  595.         (dest "Photogenics_3")
  596.         (help @askdisk-help)
  597.     )
  598.  
  599.     (working "Decompressing and installing ColourFonts..." " \n\n\n\n\n" "(This is a large job, so please bear with us...)")
  600.  
  601.     (set FONTERROR (run "Photogenics_3:c/lhex -qfw=pgs_temp: x Photogenics_3:ColourFonts.lha"))
  602.     (if  ( <> FONTERROR 0)
  603.         (message
  604.             "\n\n\n\n"
  605.             "Error decompressing the colourfonts into your selected directory.\n"
  606.             "Make sure your hard disk, has enough free space in it, "
  607.             " and if the files to be copied already exist, the existing"
  608.             " files aren't protected from deletion or overwriting.")
  609.     )
  610.  
  611.     (if (= 1 FONTCHOICE)
  612.         (
  613.         (run "c:assign fonts: pgs_temp: add")
  614.         (set SECTION-NAME "Photogenics ColourFonts")
  615.         (set STARTUP-HELP #FONTSTARTUP-HELP)
  616.         (set OUTPUT @default-dest)
  617.         (set STARTUP-FILE "add-fonts-to-user-startup")
  618.         (do-the-startup)
  619.         )
  620.     )
  621.     )
  622. )
  623.  
  624. (procedure tutorials
  625.     (
  626.     (hunt_the_wiener)
  627.     (set NORMAL RETURNCODE)
  628.     (set GRAPHICS-DIR "Graphics")
  629.  
  630.     (set GRAPHICS
  631.         (askdir
  632.             (prompt ("Where do you wish to install the tutorial and\n example graphics?\n(A drawer named '%s' will be created for them)" GRAPHICS-DIR ) )
  633.             (help @askdir-help)
  634.             (default NORMAL)
  635.             (newpath)
  636.             (disk)
  637.         )
  638.     )
  639.  
  640.     (set GRAPHICS (tackon GRAPHICS GRAPHICS-DIR))
  641.  
  642.     (if ( < (exists GRAPHICS (noreq) ) 2)
  643.         (makedir GRAPHICS
  644.             (prompt "Creating a directory for the graphics...")
  645.             (help @makedir-help) 
  646.             (confirm)
  647.             (infos)
  648.         )
  649.     )
  650.  
  651.     (set @default-dest RETURNCODE)
  652.  
  653.     (askdisk
  654.         (prompt "Please insert Photogenics disk 2 in any drive")
  655.         (dest "Photogenics_2")
  656.         (help @askdisk-help)
  657.         )
  658.  
  659.     (set HEREITCOMES "Installing Photogenics examples/tutorials...\n\nAlpha channel clipboards")
  660.     (set FINALDIR "AlphaClips")
  661.     (dead_beavers)
  662.  
  663.     (set HEREITCOMES "Still Installing Photogenics examples/tutorials...\n\nTexures")
  664.     (set FINALDIR "Textures")
  665.     (dead_beavers)
  666.  
  667.     (set HEREITCOMES "STILL Installing Photogenics examples/tutorials...\n\nTutorial images")
  668.     (set FINALDIR "TutorialImages")
  669.     (dead_beavers)
  670.  
  671.     (set HEREITCOMES "And yet more...\n\nDisplace Maps")
  672.     (set FINALDIR "DisplaceMaps")
  673.     (dead_beavers)
  674.  
  675.     (copyfiles
  676.         (prompt "Copying copyright information across")
  677.         (help @copyfiles-help)
  678.         (source "Photogenics_2:Example Images NOTICE")
  679.         (dest GRAPHICS)
  680.         (infos)
  681.         )
  682.  
  683.     (tooltype 
  684.         (dest ("%s/Example Images NOTICE" GRAPHICS))
  685.         (setdefaulttool "More")
  686.         (setstack 10000)
  687.         (noposition)
  688.         )
  689.  
  690.     )
  691. )
  692.  
  693. (if (< (/ (getversion) 65536) 39)
  694.     ((abort "\n You must be using at least KickStart 3.0 (V39) to install or run Photogenics!"))
  695. )
  696.  
  697. (message #GOINGIN)
  698.  
  699. (set NEWCODE 0)
  700.  
  701. (set WHATTOINSTALL
  702.     (askoptions
  703.         (prompt "Which parts of Photogenics do you wish to install?\n(Use the check-boxes to select, then hit Proceed)")
  704.         (help #WAYS-TO-INSTALL)
  705.         (choices "Main program & standard modules (940K)"
  706.                  "Extra modules (685K)"
  707.                  "Extra ColourFonts (1400K)"
  708.                  "Tutorial & example pictures (460K)")
  709.         (default 1)
  710.     )
  711. )
  712.  
  713. (if (= WHATTOINSTALL 0)
  714.     (exit (quiet))
  715.     )
  716.  
  717. (if (= (IN WHATTOINSTALL 0) 1)
  718.     (corebinaries)
  719.     )
  720.  
  721. (if (= (IN WHATTOINSTALL 1) 2)
  722.     (extrastuff)
  723.     )
  724.  
  725. (if (= (IN WHATTOINSTALL 2) 4)
  726.     (colourfonts)
  727.     )
  728.  
  729. (if (= (IN WHATTOINSTALL 3) 8)
  730.     (tutorials)
  731. )
  732.  
  733. (makeassign "pgs_temp")
  734.  
  735. (if (> NEWCODE 0)
  736.     (
  737.  
  738.     (askdisk
  739.         (prompt "Please insert Photogenics disk 3 in any drive")
  740.         (dest "Photogenics_3")
  741.         (help @askdisk-help)
  742.         )
  743.  
  744.     (message
  745.         "\n"
  746.         "Following this last confirmation is a list of changes,"
  747.         " updates and enhancements to Photogenics which didn't"
  748.         " make it into the manual - there is important information"
  749.         " in the text, so please be sure to read it. Then go ahead"
  750.         " and start Photogenics by double-clicking on its icon -"
  751.         " this can be found in the drawer in which you installed"
  752.         " the package.\n\n"
  753.         ( "( %s )" BINARIES )
  754.         "\n\n Spray on, gang."
  755.         )
  756.  
  757.     (run "run Photogenics_3:c/More Photogenics_3:READ.ME")
  758.  
  759.     (exit (quiet))
  760.     )
  761. )
  762.  
  763. (if (= (IN WHATTOINSTALL 2) 4)
  764.     (set FINALREPLY (cat FINALREPLY "\n\n\nColourfonts installed."))
  765.     )
  766.  
  767. (if (= (IN WHATTOINSTALL 3) 8)
  768.     (set FINALREPLY (cat FINALREPLY "\n\n\nTutorial and example graphics installed."))
  769.     )
  770.  
  771. (message FINALREPLY )
  772. (exit (quiet))
  773.